EnigmA Amiga Run 1996 June/EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso/earcd/utmisc1/chktex.lha/chktex/ChkTeX.install

Text File | 1996-04-30 | 12KB | 479 lines

;
;  ChkTeX.install v1.4, installs the ChkTeX program
;  Copyright (C) 1995-96 Jens T. Berger Thielemann
;
;  This program is free software; you can redistribute it and/or modify
;  it under the terms of the GNU General Public License as published by
;  the Free Software Foundation; either version 2 of the License, or
;  (at your option) any later version.
;
;  This program is distributed in the hope that it will be useful,
;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;  GNU General Public License for more details.
;
;  You should have received a copy of the GNU General Public License
;  along with this program; if not, write to the Free Software
;  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;  Contact the author at:
;      Jens Berger
;      Spektrumvn. 4
;      N-0666 Oslo
;      Norway
;      E-mail: <[e-mail]>
;
;
;


(procedure
    nop
    (set foo "foo")
)


(procedure
    CreateDir
    (if
        (select
            (exists
                Directory
                (noreq)
            )

; Does not exist
            (makedir Directory)
; File
            (
                (rename
                    Directory
                    (cat
                        Directory
                        ".bak"
                    )
                )
                (makedir Directory)
            )
; Directory. What's the name of the _real_ NOP?
            (nop)
        )
    )
)





(set @app-name "ChkTeX")

(welcome)

(message
    "Welcome to the ChkTeX installation script.\n"
    "Before taking the program in use, please read the COPYING file; "
    "it applies to this script as well as the remaining parts of the "
    "package. In short:\nNO WARRANTIES WHATSOEVER.\n\n"
    "Copyright © 1995-96\nJens T. Berger Thielemann\n<[e-mail]>"
)

(set
    @default-dest
    (askdir
        (prompt "Where do you wish ChkTeX installed?")
        (default "C:")
        (help
            "  You can here select where you wish to install the "
            "main ChkTeX executable program.\n\n"
            @askdir-help
        )
    )
)

(copyfiles
    (source "ChkTeX")
    (dest @default-dest)
    (infos)
)

;;;;;;
;;
;; Install environment file
;;
;;;;;;

(if
    (exists
        "ENV:CHKTEXRC"
        (noreq)
    )
    (
        (set
            ConfigPath
            (getenv "CHKTEXRC")
        )
        (set EnvPath 1)
    )
    (
        (if
            (exists
                "ENVARC:"
                (noreq)
            )
            (set ConfigPath "ENVARC:")
            (set ConfigPath "S:")
        )
        (set EnvPath 0)
    )
)

(if
    (or
        (= @user-level 2)
        (exists
            (tackon ConfigPath ".chktexrc")
        )
    )
    (set
        install
        (askbool
            (prompt "Install environment files?")
            (help
                "  If you select `yes', the default environment files will "
                "be installed. They will initialize ChkTeX to a `normal' "
                "behaviour, and give a good starting-point for "
                "modification.\n"
                "  However, if you've already installed an earlier version of "
                "ChkTeX, and modified the .chktexrc file, you will probably not "
                "want to overwrite that one. You should still take a "
                "look at the included .chktexrc, though, to be introduced to the new "
                "keywords that are introduced."
            )
            (default 1)
        )
    )
    (set install 1)
)

(if
    (= install 1)
    (
        (if
            (exists "chktexrc")
            (rename "chktexrc" ".chktexrc")
        )

        (if
            (or
                (<> ConfigPath "S:")
                (<> EnvPath 0)
            )
            (if
                (askbool
                    (prompt "Where should the resource file be installed?")
                    (help
                        "The resource file has grown quite big (15k). "
                        "Therefore, low memory systems may not wish to have it "
                        "permanently stored in RAM. ChkTeX supports putting it "
                        "in a custom location; if you wish to do this, select "
                        "\"User dir\", else \"Environment\"."
                    )
                    (choices "User dir" "Environment")
                    (default EnvPath)
                )
                (
                    (set
                        ConfigPath
                        (askdir
                            (prompt "Select path for resource file.")
                            (help
                                "Please select a permanent location for "
                                "the .chktexrc file. We will store the "
                                "path to it in an environment variable "
                                "named CHKTEXRC."
                            )
                            (default ConfigPath)
                        )
                    )
                    (set
                        SetEnvCmd
                        (cat
                            "SetEnv CHKTEXRC "
                            (expandpath ConfigPath)
                            "\n"
                        )
                    )

                    (startup
                        @app-name
                        (prompt "Add lines to S:User-startup?")
                        (help
                            "ChkTeX needs to modify S:User-startup in "
                            "to refind the .chktexrc file. This will be "
                            "done in this step.\n"
                            @startup-help
                        )
                        (command SetEnvCmd)
                    )
                    (textfile
                        (dest "ENV:CHKTEXRC")
                        (append (expandpath ConfigPath))
                    )
                )
            )
        )

        (copyfiles
            (source ".chktexrc")
            (dest ConfigPath)
        )

        (if
            (=
                ConfigPath
                "ENVARC:"
            )
            (copyfiles
                (source ".chktexrc")
                (dest "ENV:")
            )
        )
    )
)

(if
    (exists
        "HELP:"
        (noreq)
    )
    (set
        docdest
        "HELP:"
    )
    (set
        docdest
        @default-dest
    )
)


(copyfiles
    (source "")
    (dest docdest)
    (choices
        "COPYING"
        "ChkTeX.readme"
        "ChkTeX.tex"
        "ChkTeX.dvi"
        "ChkTeX.ps"
    )
    (prompt "Which documentation files do you wish to install?")
    (help
        "  If you would like to have the documentation online, you have "
        "the possibility here. It might be nice for future reference.\n"
        "  As you may know, the .dvi file is in the Device Independent "
        "format; the .ps file is in PostScript. Please select those "
        "fitting your decoding software.\n"
        "  The remaining files are plain iso-8859-1 encoded text files.\n\n"
        @copyfiles-help
    )
    (confirm)
    (infos)
)

(if
    (or
        (exists
            "REXX:"
            (noreq)
        )
        (=
            @user-level
            2
        )
    )
    (copyfiles
        (source "")
        (dest "REXX:")
        (choices
            "ChkTeX.rexx"
            "ChkTeX.ced"
            "ChkTeX.ged"
        )
        (prompt "Which parts of the SCMSG/ARexx interface should be installed?")
        (help
            "  If you've got SCMSG (included in the SAS/C package) and "
            "ARexx installed, these scripts will make the use much more "
            "comfortable.\n"
            "  To use any of these, you must install the `ChkTeX.rexx' "
            "script.\n"
            "  In addition, you may wish to install `ChkTeX.ced' or `ChkTeX.ged' "
            "if you are using respectively CygnusED or GoldED to "
            "edit your LaTeX files.\n"
            "  These interfaces may of course be improved even more, "
            "by making the editor's screen public, and installing the "
            "programs on a hotkey.\n\n"
            @copyfiles-help
        )
        (confirm)
        (infos)
    )
)

(if
    (askbool
        (prompt "Install CWEB filters?")
        (help
            "  These programs will filter away everything of a CWEB "
            "document but the LaTeX code. They will preserve line numbers.\n"
            "  However, the scripts requires that you have Perl v5 installed; "
            "you also need C-shell or an equivalent shell to make use of "
            "them.\n"
        )
        (default 0)
    )
    (
        (set
            cwebdest
            (askdir
                (prompt "Where do you wish the CWEB filters installed?")
                (default "USR:perl")
                (help
                    "  You can here select where you wish to install the "
                    "C-shell and Perl CWEB filters.\n\n"
                    @askdir-help
                )
            )
        )
        (copyfiles
            (source "")
            (dest cwebdest)
            (choices
                "deweb.in"
                "chkweb.in"
            )
        )

        (rename
            (tackon
                cwebdest
                "deweb.in"
            )
            (tackon
                cwebdest
                "deweb"
            )
        )
        (rename
            (tackon
                cwebdest
                "chkweb.in"
            )
            (tackon
                cwebdest
                "chkweb"
            )
        )
    )
)

(if
    (askbool
        (prompt "Install ChkTeX C-source files?")
        (help
            "  If you select `yes', the source code files of the "
            "project will be installed in a directory of your selection. "
            "This may be handy for future reference, or if you wish to "
            "hack a bit on ChkTeX for yourself. Please read the COPYING "
            "file before doing so, however."
        )
        (default 0)
    )
    (
        (set
            sourcedest
            (askdir
                (prompt "Where do you want the source installed?")
                (default "sc:source/")
                (help
                    "  You can here select where you wish to install the "
                    "C source of the main ChkTeX executable program. "
                    "A directory will be created there named ChkTeX.\n\n"
                    @askdir-help
                )
            )
        )
        (set
            sourcedest
            (tackon
                sourcedest
                "ChkTeX"
            )
        )

        (set
            Directory
            sourcedest
        )
        (CreateDir)

        (copyfiles
            (source "")
            (dest sourcedest)
            (choices
                "ChkTeX.c"
                "ChkTeX.h"
                "FindErrs.c"
                "getopt.c"
                "getopt.h"
                "getopt1.c"
                "OpSys.c"
                "Resource.c"
                "Utility.c"
                "WB2Argv.c"
                "WB2Argv.h"
                "WB2Argv.readme"

                "config.h.AMIGA"
                "config.h.in"
                "configure.in"

                "Makefile.in"
                "smakefile"

                "Test.tex"
                "input.tex"
                "SCOPTIONS"
            )
            (infos)
        )

        (set
            execsourcedest
            (tackon
                sourcedest
                "exec"
            )
        )

        (set
            Directory
            execsourcedest
        )
        (CreateDir)

        (copyfiles
            (source "exec/types.h")
            (dest execsourcedest)
        )
    )
)


(exit
    "To enhance the program's function, please take a look at "
    "the .chktexrc file, located in the "
    "`" ConfigPath "' directory.\n\n"
    "Have fun.\n\n"
)